home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 42 / 042.d81 / two in one (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  32 lines
  1. 0 poke53280,11:poke53281,0:print"[147]":poke650,128
  2. 2 ifa=0thena=1:load".two in one/ml",8,1
  3. 4 m=21504
  4. 6 print"[147][142]"tab(12)"[154]two in one v1.0"
  5. 8 print""tab(6)"copyright 1987  by nick peck[151]"
  6. 10 print"  ";:forl=1to18:print"[197][197]";:next:print
  7. 12 print"  [152]remember:"
  8. 14 print"     ctrl-f5 ...... flip between"
  9. 16 printtab(20)"sections one and":printtab(20)"two.[151]"
  10. 18 print"  ";:forl=1to18:print"[210][210]";:next:print
  11. 20 print""
  12. 22 printtab(5)"[154]section one bytes free:      [157][157][157][157][157][157][150]";m-2048-4
  13. 24 printtab(5)"[154]section two bytes free:      [157][157][157][157][157][157][150]";38909-m+2049
  14. 26 print"[152]    press   + [146] or  - [146]  to increase or[145][145]"
  15. 28 printtab(11)"[164][164][164]    [164][164][164]"
  16. 30 print"    decrease the size of section one."
  17. 32 print"    press  return [146] when you are done."
  18. 33 print"    press  a [146] to abort"
  19. 36 print"[151]  ";:forl=1to18:print"[210][210]";:next
  20. 38 wait198,255:getr$:ifr$=chr$(13)then48
  21. 39 ifr$="a"then60000
  22. 40 ifr$="+"andm<39936thenm=m+1024
  23. 42 ifr$="-"andm>3072thenm=m-1024
  24. 44 goto20
  25. 46 rem set up basic pointer values
  26. 48 m=m-1:poke43,1:poke44,8:h=int(m/256):poke55,m-h*256:poke56,h
  27. 50 m=m+1:h=int(m/256):poke764,m-h*256:poke765,h:poke766,0:poke767,160
  28. 52 sys51975:new:rem enable two in one
  29. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  30. 60010 ifer<>63thenend
  31. 60020 load"hello connect",8
  32.